version 14.1
set more off

***************************************************************************************************************************
* THIS ROUTINE GENERATES FIGURE A.I OF WASEEM (2020) ROLE OF WITHHOLDING ...
***************************************************************************************************************************

/* STANDARD TAX RATE */
*------------------

clear
set				obs 192
g				taxperiod=_n
egen			month=fill(7 8 9 10 11 12 1 2 3 4 5 6 7 8 9 10 11 12 1 2 3 4 5 6)
egen			fy=fill(1 1 1 1 1 1 1 1 1 1 1 1 2 2 2 2 2 2 2 2 2 2 2 2) 
replace			fy=fy+1991
g				year=fy
replace			year=year+1 if month<=6
g				tau=0
replace			tau=12.5 if fy==1992
replace			tau=15 if fy>1992 & fy<1996
replace			tau=18 if taxperiod>=49 & taxperiod<=58  //from 01-07-1996 to 15-04-1997; April 1997 treated @ 12.5%
replace			tau=12.5 if taxperiod>58 & taxperiod<=77					//from 16-04-97 to 30-11-98
replace 		tau=15 if taxperiod>77 & fy<2008							//from 01-12-1998
#d				;
twoway			(line  tau taxperiod,sort lwidth(thick) lcolor(red)),
				xtitle("") 
				xlabel(1 "92" 25 "94" 49 "96" 73 "98" 97 "00" 121 "02" 
				145 "04" 169 "06" 193 "08")
				ylabel(0(5)20) 
				ytitle(Tax Rate (%), alignment(bottom)) yscale(r(0))  yscale(titlegap(*10))
				graphregion(fcolor(white) style(none) color(white) margin(0 0 0 2)) bgcolor(white); 	
graph 			export "$project_output\StandardTaxRate.eps", replace;
#d				cr
